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A  program  is  presented  which  enables  conmunication  with  the  Macro  Arithmetic 
Processor  manufactured  by  CSP  Inc. , “through  the  EIA  port  of  the  Maintenance 
Test  Panel.  The  user  can  list,  edit  or  execute  code  from  MAP  memory, 
examine  system  flags  or  pseudo-memory,  and  with  slight  extension,  load 
processors  or  change  status  words.  The  program  is  totally  relocatable 

(including  bus  relocatable),  and  can  thus  be  placed  alongside  existing 
software.  The  program  was  written  to  aid  the  construction  and  debugging  of 
a  Host  Interface  Controller,  and  was  also  used  when  making  host  related 
modifications  to  the  Host  Interface  Module,  or  when  writing  the  software 
device  service  routine  or  driver. 


1 .  INTRODUCTION 


The  Macro  Arithmetic  Processor  200  (MAP)  manufactured  by  CSP  Inc.,  is  a 
powerful  32-bit  arithmetic  processor  than  can,  at  least  in  principle,  be 
interfaced  to  any  main  frame  or  minicomputer.  For  many  brands  of  computer, 
CSP  Inc.  provide  both  the  hardware  and  software  interfacing,  but  in  the  case 
of  our  own  minicomputer,  a  Texas  Instruments  980B  with  the  DX  980*E  operating 
system,  this  support  was  not  offered.  We  therefore  had  to  develop,  in 
house,  the  hardware  interface,  the  so  called  Host  Interface  Controller  or 
HIC,  as  well  as  the  software  driver  and  device  service  routine  (DSR) . 

During  this  development,  the  Maintenance  Teat  Panel  (MTP)  proved 
invaluable.  It  elevated  the  MAP  from  a  'black  box',  within  which  one  could 
rarely,  if  at  all,  tell  what  was  happening,  to  a  'front  panel'  unit  with  all 
the  consequent  benefits.  These  were  primarily  that  one  could  enter  commands 
directly  into  the  MAP  without  need  to  go  through  the  HIC,  and  that  one  could 
examine  MAP  memory  to  see  whether  attempted  transfers  from  the  host  had  been 
successful. 

It  soon  became  clear  that  programming  the  MAP  through  the  EIA  port  of 
the  MTP  would  greatly  increase  the  panel's  power,  and  allow  much  more  rapid 
examination  and  modification  of  MAP  memory  than  the  conventional  toggle 
switch  entry  would  permit.  MAPPER  was  therefore  devised,  and  by  using  it 
program  loops  could  be  suitably  written  for  the  Host  Interface  Module  (HIM) 
or  the  Central  System  Processing  Unit  (CSPU),  and  then  executed  to  aid  in  the 


location  of  the  source  of  some  bug.  Furthermore,  since  the  MAP  could  now  be 
programed  and  run  entirely  in  the  absence  of  a  host  or  H1C,  it  was  possible 
on  several  occasions  to  distinguish  between  bugs  in  the  interface  package 
being  constructed,  and  periodic  faults  that  developed  in  the  MAP  itself. 

The  aim  of  the  present  article,  therefore,  is  to  outline  the  use  of 
MAPPER  so  that  it  might  be  used  by  others  intending  to  interface  a  similar 
processor. 

The  program  is  clearly  of  major  benefit  for  systems  that  are  under 
development,  since  at  this  time  the  program  'LOOK',  written  by  CSP  Inc.,  can- 
not  be  used.  It  does,  however,  also  have  its  role  in  a  working  system.  By 
loading  MAPPER  alongside  a  MAP  code  module  that  is  being  tested  and  debugged 
(and  which  contains  several  strategically  placed  CSPU  halt  instructions), 
control  can  be  passed  to  MAPPER  and  the  past  progress  of  the  MAP  code 
reviewed.  After  perhaps  some  mod if ication  of  either  the  code  or  variables, 
the  next  portion  of  MAP  code  could  be  executed,  and  so  on. 

In  the  following  sections,  we  discuss  the  basic  commands  of  MAPPER 
together  with  the  techniques  for  loading  the  program.  Extensions  of  the 
basic  commode  are  then  discussed,  and  a  complete  assembly  listing  of  the 
program  is  given.  The  nature  of  this  article  assumes  the  reader  has  some 
familiarity  with  the  MAP  architecture  and  software  as  covered  in  the  CSP 


reference  manuals. 


2.  BASIC  COMMANDS 


When  ready  to  receive  a  new  command,  the  program  prompts  the  user 
with  the  single  character  .  Five  basic  commands  can  then  be  entered 
as  follows: 

#Fi  change  the  data  bus  to  bus  i  for  the  A  and  W 

commands  below,  ie.  the  data  will  be  taken 
from  bus  i. 

#S  return  the  flag  status  to  the  flag  LED  display 

on  the  MTP. 

#Xiabcd  start  executing  the  code  on  bus  i  at  location 

abed.  (Note:  the  data  bus  is  left  unchanged.) 

#Aabcd  ijkl  mnop  alter  the  word  at  location  abed,  replacing  the 
old  contents  (ijkl)  with  mnop.  ijkl  are  auto¬ 
matically  displayed  and  mnop  must  be  entered. 

If  the  command  is  terminated  with  a  line-feed, 
the  address  is  incremented,  the  next  location's 
contents  displayed,  and  the  program  waits  for 
their  modification.  Alternatively,  by  termi¬ 
nating  with  a  carriage-return,  the  command  is 
finished  and  the  program  reprompts  the  user. 

A  line-feed  after  'ijkl'  will  immediately  open 
the  next  location. 

write  out  the  contents  of  abed  sequential 
locations  starting  at  the  address  ijkl.  The 
addresses  are  also  printed. 

Both  the  A  and  W  conmands  process  data  on  whichever  bus  has  last  been 
entered  via  the  F  command.  When  the  program  is  initially  loaded,  the  bus 
is  set  automatically  to  the  program  bus. 


#Wabcd 

ijkl 


An  incorrect  character  (  ie.  not  0-9  or  A-F  )  entered  in  an  argument  to 
a  command,  results  in  the  command  being  terminated  and  ignored.  In  the  case 
of  the  A  command,  the  contents  of  any  opened  location  remain  unchanged. 

3  LOADING 

The  program  is  fully  relocatable,  and  will  function  on  any  bus.  To 

accomplish  relocatability,  the  address  switches  on  the  panel  are  read  to 
determine  the  program's  base  address.  Normally,  these  switches  will  have 
been  set  during  the  load  procedure,  so  caution  is  needed  if  MAPPER  is  entered 
by  a  'JUMP1  or  'CALL'  instruction  from  another  program.  The  switches  must 
then  be  set  accordingly. 

The  load  procedure  is  as  follows: 

on  bus  1:  follow  the  standard  EIA  autoload  procedure  as 

outlined  in  the  MTP  documentation. 

on  bus  2  or  3:  as  the  MTP  does  not  permit  direct  autoload 
access  to  other  than  bus  1,  the  unit  must  be 
fooled.  With  MAPPER  on  bus  1,  execute  the 
following  commands 
#F2 

#A0000  ????  0880 
#X20000 

and  the  MAP  will  halt  with  bus  2  as  the  program 
bus.  After  pressing  the  address  reset  (avoid¬ 
ing  the  reset),  one  can  now  autoload  onto  the 
present  bus. 

There  is  however  one  caution.  If  MAPPER  resides  on  bus  2  or  3,  and  a  jump  to 
another  bus  is  executed,  then  there  is  no  means  to  return  to  MAPPER  via  the 
front  panel  controls. 


In  our  system,  the  source  program  was  compiled  on  a  main  frame  computer 
using  the  CSP  Inc.  Assembler  compiler.  The  compiled  output  was  written  to 
magnetic  cassette  which  could  be  mounted  on  a  Texas  Instruments  Silent  700 
terminal  for  loading  as  outlined  above. 

4.  EXTENSION  OF  BASIC  COMMANDS 

The  five  commands  outlined  above  provide  a  basic  set  of  functions  for 
manipulating  MAP  core.  To  perform  more  complex  functions,  such  as 
addressing  pseudo-memory,  changing  system  flags,  or  loading  processors  etc., 
a  sequence  of  basic  commands  can  be  combined,  or  a  block  of  code  can  be 
written  into  core  using  MAPPER,  and  then  executed.  If  such  procedures  are 
used  extensively,  they  could  be  incorporated  into  MAPPER  as  new  commands. 

Two  common  requirements  that  we  had  while  developing  the  HIC  and 
software,  were  to  read  the  HIM  status  word  HISTAT,  and  modify  the  system  flag 
SYSFLG.  These  were  accomplished  as  follows: 

4.1.  Addressing  Pseudo-Memory 

To  read  16-bit  words  from  pseudo-memory,  the  contents  of  location  3E 
(relative  to  the  MAPPER  start  address)  should  be  changed  to  001116*  This 
sets  the  data  bus  to  1,  and  will  effectively  add  10000 16  to  any  address 
supplied  by  the  W  or  A  commands,  thereby  accessing  pseudo-memory.  A  further 
command  #Fi  will  reset  word  3E. 


One  can  thus  look  at  HISTAT  by  using  the  sequence 


#Fj 

#A003E  ????  0011 


#AFFCC  ijkl  C.R. 
#Fi 


set  data  bus  to  bus  containing  MAPPER 

change  location  3E  (relative  to  start  address, 

assumed  here  to  be  zero) 

display  contents  of  HISTAT 

reset  word  3E. 


4.2.  Changing  Sysflg 

The  HIM  status  word,  HISTAT,  could  be  changed  by  first  writing  into 


core  and  then  executing  the  following 
0800i6 ): 


MOVIR 

R0, 

$LIT 

9000 

$LIT 

LLS 

R0, 

1 

3A01 

ADDIR 

R0, 

$F801 

9C00 

F801 

M0VRM 

R0, 

$0807 

E000 

0807 

MOVLM 

$1FFCE 

F801 

FFCE 

JMP 

MAPPER 

8000 

0000 

Other  functions,  such  as  loading 
by  similar  means. 


5.  PROGRAM  LISTING 


code  (assumed  here  to  be  at  location 

load  up  the  literal  (  7  bits) 
and  shift  left  one 
form  the  move  literal  instruction 
and  store  it  in  next  location 
execute  it  to  change  SYSFLG 
return  to  MAPPER  (here  at  loc  0) 

the  HIM,  for  example,  can  be  achieved 


The  following  pages  give  a  listing  of  MAPPER  obtained  as  output  from 


the  assembler  compiler. 


00000 

00001 

00003 

00004 

00006 

00008 

OOOOA 


MAPPER:  MAINTENANCE  TEST  PANEL  PROGRAM 


P.M.  HOLTHAM,  1980,  DEFENCE  RESEARCH  OF  CANADA 

ESQUIMALT,  VICTORIA, 

B.C.,  CANADA. 


PROGRAM  FULLY  RELOCATABLE 


(0001)  * 
(0002)  * 
(0003)  * 
(0004)  * 
(0005)  * 
(0006)  * 
(0007)  * 
(0008)  * 
(0009)  * 
(0010)  * 
(0011)  * 
(0012)  * 
(0013)  * 
(0014)  * 
(0015) 
(0016) 
(0017) 
(0018) 
(0019) 
(0020) 
(0021)  * 
(0022)  * 
(0023)  * 
(0024)  * 
00000E70  (0025) 
00002000  (0026) 
OOOOOOOA  (0027) 
OOOOOOOD  (0028) 
00000003  (0029) 
0001FFCE  (0030) 

(0031)  * 
(0032)  * 
(0033)  * 
(0034)  * 
(0035)  * 
(0036)  * 
(0037)  * 
(0038)  * 
(0039)  * 
(0040)  * 
(0041)  * 
(0042)  * 
(0043)  * 
(0044)  * 
(0045)  * 
(0046)  * 
(0047)  * 
(0048)  * 
(0049)  * 

0A80  (0050)  HOME 

CC0C008A  (0051) 

4060  (0052) 

9C000124  (0053) 
860C010A  (0054) 
90300023  (0055) 
860C008B  (0056) 


ADD  OPERATORS 


OPADD 

MOVMC, 

(1  .LS 

OPADD 

MOVCM, 

(1  .LS 

OPADD 

MOVDI, 

(1  .LS 

OPADD 

MOVSO, 

(1  .LS 

OPADD 

MOVDO, 

(1  .LS 

OPADD 

MOVSI, 

(1  .LS 

DEFINE 

WORDS 

RETT=>$0E70 

NOPP»$2000 

LF»$A 

CR«$D 

FLAGDISPLAt-3 

SYSFLG-$1FFCE 


MOVDI  R0,0 
MOVZM  AFLAG(R6) 
MOVRR  R€  \0 
ADDIR  R0,„.«  X 
CALL  R0.CKj.rvR6) 
MOVIR  R3, '#' 

CALL  R0,WRITE(R6) 


14)+( 34  .LS.  8)+(X'E8' ) 
l4)+(30  .LS.  8)+(X'EA') 
14)+(26  .LS.  8)+(X'0A') 
14)+(26  .LS.  8)+(X'0D') 
14)+( 26  .LS.  8)+(X'0C' ) 
l4)+(26  .LS.  8)+(X'0B') 


/SORT  OUT  THE  RELOCATION 
/CLEAR  ASK  FLAG 
/SET  UP  BASE  REG 
/STACK  POINTER  RESET 


REGISTER  USAGE 
RO  STACK  POINTER 
R1  COUNTER  IN  0UT4 
R2  USED  FOR  I/O  STATUS 
R3  ASCII  I/P  OR  0/P  CHARCCTER 
R4  PACKED  HEX  FOR  I/P  OR  0/P 
R5  TEMP  STORAGE  -  NOTE:  A  SUB  CALL  MAY  CHANGE 
R6  PSEUDO  BASE  REG  FOR  RELOCATION 
R7  COUNTER  IN  W  ROUTINE 

NOTE:  ALL  CALLS  MUST  BE  MADE  WITHOUT  A  REGISTER 
SAVE,  SINCE  THE  STACK  POINTER  IS  RESET 


.y 

-  8  - 

ooooc 

0AD1 

(0057) 

MOVDI  R5, 1 

/CLEAR  ANY  INPUT  CiiAR 

• 

OOOOD 

860C00A8 

(0058) 

CALL  R0,CHAR(R6) 

/WAIT  FOR  INPUT  IN  R3 

<•* 

OOOOF 

92300041 

(0059) 

CMPIR  R3/A' 

\m 

OOOll 

801C0061 

(0060) 

JMP  AA(R6),EQ 

00013 

92300058 

(0061) 

CMPIR  R3,'X' 

00015 

801C0028 

(0062) 

JMP  XX(R6),EQ 

00017 

92300046 

(0063) 

CMPIR  R3,'F' 

\ 

00019 

801C003A  (0064) 

JMP  FF(R6) ,EQ 

000  IB 

92300057 

(0065) 

CMPIR  R3,'W' 

000  ID 

801C0040 

(0066) 

JMP  WW(R6) ,EQ 

000  IF 

92300053 

(0067) 

CMPIR  R3,'S' 

|'*v' 

00021 

801C0024 

(0068) 

JMP  SS(R6),EQ 

.  a 

00023 

20C5 

(0069) 

(0070) 

* 

HOP  ABOR 

(0071) 

* 

m 

(0072) 

* 

k 

0002A 

F051FFCE  (0073) 

ss 

MOVMR  R5.SYSFLG 

/GET  STATUS 

: 

C.- 

00026 

0DD3 

(0074) 

MOVSO  R5.FLAGDI SPLAY 

00027 

2128 

(0075) 

HOP  HOME 

| 

\-V 

(0076) 

* 

(0077) 

* 

(0078) 

* 

s 

00028 

860C00C2 

(0079) 

XX 

CALL  R0,NUM(R6) 

/READ  BUS 

0002A 

3A3C 

(0080) 

LLS  R3.12 

/SHIFT  TO  CORRECT  PLACE 

•V 

0002B 

4076 

(0081) 

MOVRR  R7,R3 

/STORE  IT  IN  R7 

-*■  • 

0002C 

860C01 13 

(0082) 

CALL  R0,GET4(R6) 

/GET  ADDRESS 

V 

0002E 

EA0C0124 

(0083) 

MOV CM  STACK(R6) 

/NB:  RO  MUST  POINT  TO 

(0084) 

* 

/  TO  STACK 

* 

oal 

00030 

2601 

(0085) 

INCR  RO, 1 

00031 

7050CFFC  (0086) 

MOVWK  R5,R0,$CFFC 

00033 

4C5E 

(0087) 

ADDRR  R5.R7 

[  ■'. 

00034 

844C0124 

(0088) 

MOVRML  R4,STACK(R6) 

Ky 

00036 

E80COU-* 

(0089) 

MOVMC  STACK(R6) 

/RESET  THE  CSW 

■ 

(0090) 

EVEN 

00038 

0000 

(0091) 

ADDR2 

DATA  0,0 

*  <. 

00039 

0000 

<*  *i 
•  • 

(0092) 

* 

(0093) 

* 

0003A 

860C00C2 

(0094)  FF 

CALL  R0,NUM(R6) 

/GET  BUS 

0003C 

3A34 

(0095) 

LLS  R3 ,4 

j5 

0003D 

E03C0038 

(0096) 

MOVRM  R3 , ADDR2 ( R6 ) 

/STORE  IT 

i . . 

0003F 

2140 

(0097) 

HOP  HOME 

l*V 

(0098) 

* 

(0099) 

* 

r,v 

00040 

860C01 13  (0100) 

ww 

CALL  RO,GET4(R6) 

/GET  NUMBER  TO  DO 

2 

00042 

00044 

90502000 

E05C0058 

(0101) 

(0102) 

MOVIR  R5.N0PP 

MOVRM  R5,INSTR(R6) 

1M 

00046 

4078 

(0103) 

MOVRR  R7,R4 

/COUNT 

K-: 

00047 

860C010A  (0104) 

CALL  R0,CRLF(R6) 

fcv 

00049 

860C0113 

(0105) 

ENTER 

CALL  R0,GET4(R6) 

/GET  START 

0004B 

E04C0039 

(0106) 

MOVRM  R4,ADDR2+1(R6) 

• 

L. 

0004D 

2004 

(0107) 

HOP  GO 

0004E 

F04C0039 

(0108) 

L00P2 

MOVMR  R4 , ADDR2+1 ( R6 ) 

/GET  ADDRESS 

fv 

00050 

860C00EE  (0109) 

CALL  RO ,0UT4(R6) 

/OUTPUT  IT 

-1 

00052 

860C0103 

(0110)  GO 

CALL  R0,SPACES(R6) 

00054 

F0CC0038 

(0111) 

MOVMR  R4,@ADDR2(R6) 

/GE  WORD 

00056  860C00EE  (0112)  CALL  ?0,OUT4(R6)  /0/P  IT 

00058  2000  (0113)  INSTR  NOP  /OTHER  SUB  WILL  CHANGE 

00059  E50C0039  (0114)  INCM  ADDR2+l(R6)  /INCR  ADDRESS 

0005B  860C010A  (0115)  CALL  R0,CRLF(R6) 

0005D  2771  (0116)  DECR  R7,l  /DECR  COU  T 

0005E  81 1C004E  (0117)  JMP  L00P2(R6),NE 

00060  2161  (0118)  HOP  HOME 

(0119)  * 

(0120)  * 

(0121)  * 

00061  90500E70  (0122)  AA  MOVIR  R5.RETT 

00063  E05C0058  (0123)  MOVRM  R5,INSTR(R6) 

00065  860C0049  (0124)  CALL  RO ,ENTER(R6) 

00067  E50C008A  (0125)  INCM  AFLAG(R6)  /SET  THE  AFLAG 

00069  2002  (0126)  HOP  OVER 

0006A  860C004E  (0127)  NXT  CALL  RO,LOOP2(R6) 

0006C  860C0103  (0128)  OVER  CALL  R0,SPACES(R6) 

0006E  CC0C0089  (0129)  MOVZM  LFFLAG(R6)  /LINE  FEED  FLAG 

00070  860C01 13  (0130)  CALL  R0,GET4(R6)  /NEW  CONTENTS 

00072  E20C0089  (0131)  CMPMZ  LFFLAG(R6)  /WAS  THERE  A  LINE  FEED 

00074  81 1C0082  (0132)  JMP  INC(R6),NE  /YES.  INCREMENT  AND  REDO 

00076  E0CC0038  (0133)  MOVRM  R4,@ADDR2(R6)  /STORE  THEM 

00078  860C00A8  (0134)  CALL  R0,CHAR(R6)  /CHECK  FOR  TERMINATOR 

0007A  9230000D  (0135)  CMPIR  R3,CR  /CARRIAGE  RETURN 

0007 C  801C0000  (0136)  JMP  H0ME(R6),EQ 

0007E  9230000A  (0137)  CMPIR  R3fLF  /LINE  FEED? 

00080  81 1C00B7  (0138)  JMP  ERR0R(R6) ,NE 

00082  E50C0039  (0139)  INC  INCM  ADDR2+1(R6)  /INCR  ADDRESS 

00084  9030000D  (0140)  MOVIR  R3,CR 

00086  860C008B  (0141)  CALL  R0,WRITE(R6' 

00088  21  IF  (0142)  HOP  NXT 

00089  0000  (0143)  LFFLAG  DATA  0 

0008A  0000  (0144)  AFLAG  DATA  0 

(0145)  * 

(0146)  * 

(0147)  * 

0008B  4056  (0148)  WRITE  MOVRR  R5,R3  /OUTPUT  THE  CHAR 

0008C  860C0093  (0149)  CALL  R0,READY(R6)  /WAIT  AND  0/P 

0008E  4E5A  (0150)  SUBRR  R5,R5  /SET  UP  AND  DO  3  NULLS 

0008F  860C0093  (0151)  CALL  RO , READY (R6)  /WAIT  AND  0/P 

00091  860C0093  (0152)  CALL  R0,READY(R6)  /WAIT  AND  0/P 

00093  0BA1  (0153)  READY  MOVSI  R2,l  /STATUS  OF  PRINTER 

00094  9A200001  (0154)  ANDIR  R2,l  /STATUS  OF  PRINTER 

00096  8D2C0093  (0155)  DJN  R2,READY(R6)  /REWAIT  IF  NOT  READY 

00098  0CD1  (0156)  MOVDO  R5,l 

00099  9230000A  (0157)  CMPIR  R3,LF 

0009B  801 COO A2  (0158)  JMP  DLY(R6) ,EQ 

0009D  9230000D  (0159)  CMPIR  R3.CR 

0009F  801  COO A2  (0160)  JMP  DLY ( R6 ) , EQ 

000A1  0E70  (0161)  BACK  RETURN 

(0162)  * 

000A2  90504A00  (0163)  DLY  MOVIR  R5,$4AOO  /SET  UP  REPEAT 

000A4  1C50  (0164)  RPT  R5 

000A5  90120000  (0165)  MOVIR  R1,0(R1) 

000A7  2107  (0166)  HOP  BACK 

(0167)  * 


10  - 


(0168) 

* 

000A8 

0BA1 

(0169) 

CHAR 

MOVSI  R2,l 

/INPUT  A  CHAR 

000A9 

9A200030 

(0170) 

ANDIR  R2,$30 

/STATUS 

000AB 

9E200010 

(0171) 

SUBIR  R2,$10 

OOOAD 

803C00A8 

(0172) 

JMP  CHAR(R6),LT 

/NO  CHAR  YET 

OOOAF 

81 1C00B7 

(0173) 

JMP  ERR0R(R6) ,NE 

/TWO  CHARS! 

000B1 

0AB1 

(0174) 

MOVDI  R3, 1 

/LEAVE  PREFIC  ON 

000B2 

9A30007F 

(0175) 

ANDIR  R3,$7F 

/STRIP  UNDEFINED  BITS 

000B4 

860C008B 

(0176) 

CALL  R0,WRITE(R6) 

/ECHO 

000B6 

0E70 

(0177) 

RETURN 

(0178) 

* 

(0179) 

* 

000B7 

90300024 

(0180) 

ERROR 

MOVIR  R3,'$' 

000B9 

860C008B 

(0181) 

CALL  RO, WRITE (R6) 

OOOBB 

860C008B 

(0182) 

CALL  RO, WRITE (R6) 

OOOBD 

860C008B 

(0183) 

CALL  RO, WRITE (R6) 

OOOBF 

860C008B 

(0184) 

CALL  RO, WRITE (R6) 

000C1 

21C2 

(0185) 

HOP  HOME 

(0186) 

* 

(0187) 

* 

(0188) 

* 

OOOC2 

860C00A8 

(0189)  NUM 

CALL  R0,CHAR(R6) 

/TO  INPUT  A  NUMBER  AND 

(0190) 

* 

/ABORT  IF  ILLEGAL 

000C4 

92300030 

(0191) 

CMPIR  R3, 'O' 

/MUST  BE  >  OR  -  0 

000C6 

803C00D9 

(0192) 

JMP  AB0R1(R6),LT 

/SPECIAL  ABORT  FOR  1ST 

(0193) 

* 

/CHARACTER 

000C8 

92300039 

(0194) 

CMPIR  R3, '9' 

/MUST  BE  <  OR  -  ZERO 

000 CA 

812C00D6 

(0195) 

JMP  0K(R6),LE 

OOOCC 

92300041 

(0196) 

CMPIR  R3,'A' 

/MUST  BE  >  OR  -  0 

OOOCE 

803C00E9 

(0197) 

JMP  AB0R(R6),LT 

OOODO 

92300046 

(0198) 

CMPIR  R3,'F' 

/MUST  BE  <  OR  *  0 

OOOD2 

802C00E9 

(0199) 

JMP  AB0R(R6),GT 

000D4 

9C300009 

(0200) 

0K2 

ADDIR  R3 ,9 

/ADD  9  FOR  A-F 

000D6 

9A30000F 

(0201) 

OK 

ANDIR  R3,$F 

/STRIP  OFF  GARBAGE 

000D8 

0E70 

(0202) 

RETURN 

(0203) 

* 

000D9 

E20C008A 

(0204) 

AB0R1 

CMPMZ  AFLAG(R6) 

OOODB 

801C00E9 

(0205) 

JMP  AB0R(R6) ,EQ 

/STRAIGHT  OFF  TO  ABOR  IF 

(0206) 

* 

/NOT  IN  THE  'A'  ROUTINE 

OOODD 

9230000D 

(0207) 

CMPIR  R3,CR 

OOODF 

801C0000 

(0208) 

JMP  H0ME(R6) ,EQ 

/TERMINATE  THE  A  ROUTINE 

000E1 

9230000A 

(0209) 

CMPIR  R3,LF 

000E3 

81 1C00E9 

(0210) 

JMP  AB0R(R6),NE 

000E5 

E50C0089 

(0211) 

INCM  LFFLAG(R6) 

/SET  THE  LINE  FEED  FLAG 

000E7 

2702 

(0212) 

DECR  R0,2 

/DECR  STACK  TO  GO  BACK 

(0213) 

* 

/ONE  ROUTINE 

000E8 

0E70 

(0214) 

RETURN 

(0215) 

* 

000E9 

9030003F 

(0216) 

ABOR 

MOVIR  R3, '?' 

000 EB 

860C008B 

(0217) 

CALL  R0,WRITE(R6) 

000 ED 

21  EE 

(0218) 

HOP  HOME 

OOOEE 

90100004 

(0219)  0UT4 

MOVIR  Rl,4 

/UNPACK  AND  OUTPUT  FOUR 

(0220) 

* 

/HEX  CHARACTERS. 

(0221) 

* 

/RESET  COUNTER 

OOOFO 

3A42 

(0222) 

LLS  R4,2 

000F1 

3E4E 

(0223)  L00P3 

ROR  R4, 14 

/DATA  ROTATED 

000F2  5038000F  (0224)  MOVKR  R3,R4,$F 

(0225)  * 

000F4  92300009  (0226)  CMPIR  R3,9 

000F6  812C00FA  (0227)  JMP  ALPHA(R6) ,LE 

OOOF8  9C300007  (0228)  ADDIR  R3,$11-$A 

(0229)  * 

OOOFA  9C300030  (0230)  ALPHA  ADDIR  R3,$30 

OOOFC  860C008B  (0231)  CALL  R0,WRITE(R6) 

OOOFE  9E100001  (0232)  SUBIR  Rl,l 

00100  1810  (0233)  SKP  EQ 

00101  2111  (0234)  HOP  L00P3 

00102  0E70  (0235)  RETURN 

(0236)  * 

(0237)  * 

00103  903000A0  (0238)  SPACES  MOVIR  R3,$A0 

00105  860C008B  (0239)  CALL  R0,WRITE(R6) 

00107  860C008B  (0240)  CALL  R0,WRITE(R6) 

00109  0E70  (0241)  RETURN 


(0242)  * 

(0243)  * 

0010A 

9030000D  (0244)  CRLF 

MOVIR  R3.CR 

00  IOC 

860C008B  (0245) 

CALL  R0,WRITE(R6) 

0010E 

9030000A  (0246) 

MOVIR  R3.LF 

00110 

860C008B  (0247) 

CALL  R0,WRITE(R6) 

00112 

0E70 

(0248) 

RETURN 

(0249)  * 

00113 

860C00C2  (0250)  GET4 

CALL  R0,NUM(R6) 

(0251)  * 

00115 

3A3C 

(0252) 

LLS  R3.12 

00116 

4046 

(0253) 

MOVRR  R4,R3 

00117 

860C00C2 

(0254) 

CALL  R0,NUM(R6) 

00119 

3A38 

(0255) 

LLS  R3,8 

001 1A 

4C46 

(0256) 

ADDRR  R4.R3 

(0257)  * 

001  IB 

860C00C2 

(0258) 

CALL  R0,NUM(R6) 

001  ID 

3A34 

(0259) 

LLS  R3,4 

001  IE 

4C46 

(0260) 

ADDRR  R4,R3 

001  IF 

860C00C2 

(0261) 

CALL  R0,NUM(R6) 

00121 

4C46 

(0262) 

ADDRR  R4,R3 

00122 

0E70 

(0263) 

RETURN 

(0264)  * 

(0265)  * 

00123 

0800 

(0266) 

EVEN 

00124 

0000 

(0267)  STACK 

DATA  0 

00125 

(0268) 

END 

/PICK  OF  RIGHT  CHAR 
/AND  MOVE  TO  R3 
/0-9  OR  A-F 
/JUMP  FOR  0-9  ONLY 
/A-F  ADD  PREFIX  NOTING 
/$30  DONE  NEXT  LINE 
/0-9  ADD  ASCI  PREFIX 

/DECR  COUNT 


/0/P  2  SPACES 


/SUBROUTINE  TO  READ 
/FOUR  ASCII  CHARACTERS 
/STRIP  PREFIXES  AND  PACK 
/R3  USED  IN  READ 
/R4  USED  FOR  0/P 
/R2  USED  BY  READ 
/R1  IS  ZERO  SO  NO 
/REGISTER  STORE 
/RO  IS  STACK  POINTER 


AA: 

ABOR: 

ABOR1 : 

ADDR2: 

AFLAC: 

ALPHA: 

BACK: 

CHAR: 

CR: 

CRLF: 

DLY: 

ENTER: 

ERROR: 

FF: 

FLAGDISP: 

GET4: 

GO: 

HOME: 

INC: 

INSTR: 

LF: 

LFFLAG: 
LOOP2 : 
LOOP3 : 
NOPP: 

NUM: 

NXT: 

OK: 

0K2: 

OUT4: 

OVER: 

READY: 

RETT: 

SPACES: 

SS: 

STACK: 

SYSFLG: 

WRITE: 

WW: 

XX: 


00061  (0060K0122) 

000E9  (0069) (0197) (0199) (0205) (02 10) (02 16) 

000D9  (0192)(0204) 

00038  (0091)(0096)(0106)(0108)(0111)(0114)(0133)(0139) 

0008A  (0051) (0125) (0144) (0204) 

000FA  (0227) (0230) 

000A1  (0160(0166) 

000A8  (0058) (0134) (0169) (0172) (0189) 

OOOOD  (0028) (0135) (0140) (01 59) (0207) (0244) 

0010A  (0054) (0104) (01 15) (0244) 

000A2  (0158) (0160) (0163) 

00049  (0105K0124) 

000B7  (0138) (01 7 3) (0180) 

0003A  (0064) (0094) 

00003  (0029) (0074) 

00113  (0082) (0100) (0105) (0130) (0250) 

00052  (0107)(0110) 

00000  (0050) (0075) (0097) (01 18) (01 36) (0185) (0208) (02 18) 

00082  (0132)(0139) 

00058  (0102) (01 13) (0123) 

OOOOA  (0027) (0137) (01 57) (0209) (0246) 

00089  (0129)(0131)(0143)(0211) 

0004E  (0108) (01 17) (01 27) 

000F1  (0223)(0234) 

02000  (0026)(0101) 

000C2  (0079) (0094) (0189) (0250) (0254) (0258) (0261) 

0006A  (0127)(0142) 

000D6  (0195)(0201) 

000D4  (0200) 

OOOEE  (0109) (01 12) (02 19) 

0006C  (0126)(0128) 

00093  (0149) (015 0(0152) (01 53) (01 55) 

00E70  (0025)(0122) 

00103  (01 10) (01 28) (0238) 

00024  (0068)(0073) 

00124  (0053) (0083) (0088) (0089) (0267) 

1FFCE  (0030) (0073) 

0008B  (0056) (0141 ) (0148) (01 76) (0181) (0182 )(0183) (0184) (0217) (0231) 
(0239) (0240) (0245) (0247) 

00040  (0066)(0100) 

00028  (0062)(0079) 


